home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbback / vbback.frm < prev    next >
Text File  |  1997-01-11  |  4KB  |  121 lines
  1. VERSION 2.00
  2. Begin Form vbback 
  3.    BackColor       =   &H0000DEAD&
  4.    Caption         =   "VB Background Chooser"
  5.    ClientHeight    =   5820
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   6225
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5820
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    WindowState     =   2  'Maximized
  17.    Begin CommandButton Command1 
  18.       Caption         =   "save colors"
  19.       Height          =   375
  20.       Left            =   1320
  21.       TabIndex        =   3
  22.       Top             =   600
  23.       Width           =   1695
  24.    End
  25.    Begin TextBox Text1 
  26.       Height          =   615
  27.       Left            =   4080
  28.       TabIndex        =   2
  29.       Top             =   1560
  30.       Width           =   1815
  31.    End
  32.    Begin ComboBox cmbBacks 
  33.       Height          =   1575
  34.       Left            =   1080
  35.       Style           =   1  'Simple Combo
  36.       TabIndex        =   0
  37.       Text            =   "&H0000DEAD&"
  38.       Top             =   1320
  39.       Width           =   2535
  40.    End
  41.    Begin Label Label1 
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "add color to list:"
  44.       Height          =   375
  45.       Left            =   4080
  46.       TabIndex        =   1
  47.       Top             =   1200
  48.       Width           =   2175
  49.    End
  50. End
  51. Sub cmbBacks_KeyPress (KeyAscii As Integer)
  52.     If KeyAscii <> 13 Then Exit Sub
  53.     On Error GoTo CntSet
  54.     BackColor = Val(cmbBacks.Text)
  55.     On Error GoTo 0
  56.     Exit Sub
  57. CntSet:
  58.     MsgBox "could not set background"
  59.     Exit Sub
  60. End Sub
  61.  
  62. Sub Command1_Click ()
  63.     Dim fname, I
  64.     fname = InputBox("Enter filename to save as:")
  65.     On Error GoTo CS
  66.     Open fname For Output As #1
  67.     For I = 0 To cmbBacks.ListCount - 1
  68.         Print #1, cmbBacks.List(I)
  69.     Next I
  70.     Close #1
  71.     On Error GoTo 0
  72.     Exit Sub
  73. CS:
  74.     MsgBox "couldn't save colors"
  75.     Exit Sub
  76. End Sub
  77.  
  78. Sub Form_Load ()
  79.     Show
  80.     Me.cmbBacks.AddItem "&H0000DEAD&"
  81.     Me.cmbBacks.AddItem "&H0011DEAD&"
  82.     Me.cmbBacks.AddItem "&H0022DEAD&"
  83.     Me.cmbBacks.AddItem "&H0033DEAD&"
  84.     Me.cmbBacks.AddItem "&H0044DEAD&"
  85.     Me.cmbBacks.AddItem "&H0055DEAD&"
  86.     Me.cmbBacks.AddItem "&H0066DEAD&"
  87.     Me.cmbBacks.AddItem "&H0077DEAD&"
  88.     Me.cmbBacks.AddItem "&H0088DEAD&"
  89.     Me.cmbBacks.AddItem "&H0099DEAD&"
  90.     Me.cmbBacks.AddItem "&H00AADEAD&"
  91.     Me.cmbBacks.AddItem "&H00BBDEAD&"
  92.     Me.cmbBacks.AddItem "&H00CCDEAD&"
  93.     Me.cmbBacks.AddItem "&H00DDDEAD&"
  94.     Me.cmbBacks.AddItem "&H00EEDEAD&"
  95.     Me.cmbBacks.AddItem "&H00FFDEAD&"
  96.     Me.cmbBacks.AddItem "&H00DAD000&"
  97.     Me.cmbBacks.AddItem "&H00DAD111&"
  98.     Me.cmbBacks.AddItem "&H00DAD222&"
  99.     Me.cmbBacks.AddItem "&H00DAD333&"
  100.     Me.cmbBacks.AddItem "&H00DAD444&"
  101.     Me.cmbBacks.AddItem "&H00DAD555&"
  102.     Me.cmbBacks.AddItem "&H00DAD666&"
  103.     Me.cmbBacks.AddItem "&H00DAD777&"
  104.     Me.cmbBacks.AddItem "&H00DAD888&"
  105.     Me.cmbBacks.AddItem "&H00DAD999&"
  106.     Me.cmbBacks.AddItem "&H00DADAAA&"
  107.     Me.cmbBacks.AddItem "&H00DADBBB&"
  108.     Me.cmbBacks.AddItem "&H00DADCCC&"
  109.     Me.cmbBacks.AddItem "&H00DADDDD&"
  110.     Me.cmbBacks.AddItem "&H00DADEEE&"
  111.     Me.cmbBacks.AddItem "&H00DADFFF&"
  112.     Me.cmbBacks.AddItem "&H00DADDAD&"
  113. End Sub
  114.  
  115. Sub Text1_KeyPress (KeyAscii As Integer)
  116.     If KeyAscii <> 13 Then Exit Sub
  117.     KeyAscii = 0    'Cancel keystroke
  118.     cmbBacks.AddItem Text1.Text
  119. End Sub
  120.  
  121.